home *** CD-ROM | disk | FTP | other *** search
/ Programmer Plus 2007 / Programmer-Plus-2007.iso / Programming / Visual Basic new SourceCode and Projects / Midi Piano / splash.frm (.txt) < prev   
Encoding:
Visual Basic Form  |  1999-11-30  |  9.9 KB  |  335 lines
  1. VERSION 5.00
  2. Object = "{C1A8AF28-1257-101B-8FB0-0020AF039CA3}#1.1#0"; "MCI32.OCX"
  3. Begin VB.Form Splash 
  4.    AutoRedraw      =   -1  'True
  5.    BackColor       =   &H00FFFFFF&
  6.    BorderStyle     =   3  'Fixed Dialog
  7.    ClientHeight    =   6375
  8.    ClientLeft      =   45
  9.    ClientTop       =   45
  10.    ClientWidth     =   5790
  11.    ControlBox      =   0   'False
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    Moveable        =   0   'False
  16.    NegotiateMenus  =   0   'False
  17.    ScaleHeight     =   6375
  18.    ScaleWidth      =   5790
  19.    ShowInTaskbar   =   0   'False
  20.    StartUpPosition =   1  'CenterOwner
  21.    Begin VB.CommandButton Command1 
  22.       Caption         =   "Close"
  23.       Height          =   375
  24.       Left            =   360
  25.       TabIndex        =   8
  26.       Top             =   5760
  27.       Visible         =   0   'False
  28.       Width           =   1215
  29.    End
  30.    Begin VB.Timer Timer1 
  31.       Left            =   5160
  32.       Top             =   5760
  33.    End
  34.    Begin VB.Timer Timer2 
  35.       Left            =   4800
  36.       Top             =   5760
  37.    End
  38.    Begin MCI.MMControl MMControl1 
  39.       Height          =   330
  40.       Left            =   480
  41.       TabIndex        =   0
  42.       Top             =   5760
  43.       Visible         =   0   'False
  44.       Width           =   3540
  45.       _ExtentX        =   6244
  46.       _ExtentY        =   582
  47.       _Version        =   393216
  48.       DeviceType      =   ""
  49.       FileName        =   ""
  50.    End
  51.    Begin VB.Label Label8 
  52.       BackStyle       =   0  'Transparent
  53.       Caption         =   "Version 1.0"
  54.       Height          =   255
  55.       Left            =   3960
  56.       TabIndex        =   9
  57.       Top             =   3720
  58.       Width           =   855
  59.    End
  60.    Begin VB.Label Label7 
  61.       BackStyle       =   0  'Transparent
  62.       Caption         =   "Please wait......."
  63.       Height          =   255
  64.       Left            =   480
  65.       TabIndex        =   7
  66.       Top             =   5760
  67.       Width           =   1335
  68.    End
  69.    Begin VB.Label Label6 
  70.       BackStyle       =   0  'Transparent
  71.       Caption         =   "Keith Wilson Angela Ennis"
  72.       Height          =   495
  73.       Left            =   4080
  74.       TabIndex        =   6
  75.       Top             =   5760
  76.       Width           =   1215
  77.    End
  78.    Begin VB.Label Label5 
  79.       BackStyle       =   0  'Transparent
  80.       Caption         =   "Programmed by:"
  81.       Height          =   255
  82.       Left            =   2880
  83.       TabIndex        =   5
  84.       Top             =   5760
  85.       Width           =   1215
  86.    End
  87.    Begin VB.Label Label4 
  88.       BackStyle       =   0  'Transparent
  89.       Caption         =   "Advanced Research"
  90.       Height          =   255
  91.       Left            =   4110
  92.       TabIndex        =   4
  93.       Top             =   5520
  94.       Width           =   1575
  95.    End
  96.    Begin VB.Label Label3 
  97.       BackStyle       =   0  'Transparent
  98.       Caption         =   "Produced by: System Technologies"
  99.       Height          =   255
  100.       Left            =   3120
  101.       TabIndex        =   3
  102.       Top             =   5280
  103.       Width           =   2535
  104.    End
  105.    Begin VB.Image Image3 
  106.       Height          =   480
  107.       Index           =   10
  108.       Left            =   5280
  109.       Picture         =   "splash.frx":0000
  110.       Top             =   4800
  111.       Visible         =   0   'False
  112.       Width           =   480
  113.    End
  114.    Begin VB.Image Image3 
  115.       Height          =   480
  116.       Index           =   9
  117.       Left            =   4680
  118.       Picture         =   "splash.frx":0152
  119.       Top             =   4440
  120.       Visible         =   0   'False
  121.       Width           =   480
  122.    End
  123.    Begin VB.Image Image3 
  124.       Height          =   480
  125.       Index           =   8
  126.       Left            =   4080
  127.       Picture         =   "splash.frx":02A4
  128.       Top             =   4200
  129.       Visible         =   0   'False
  130.       Width           =   480
  131.    End
  132.    Begin VB.Image Image3 
  133.       Height          =   480
  134.       Index           =   7
  135.       Left            =   3480
  136.       Picture         =   "splash.frx":03F6
  137.       Top             =   4680
  138.       Visible         =   0   'False
  139.       Width           =   480
  140.    End
  141.    Begin VB.Image Image3 
  142.       Height          =   480
  143.       Index           =   6
  144.       Left            =   2760
  145.       Picture         =   "splash.frx":0548
  146.       Top             =   4320
  147.       Visible         =   0   'False
  148.       Width           =   480
  149.    End
  150.    Begin VB.Image Image3 
  151.       Height          =   480
  152.       Index           =   5
  153.       Left            =   2400
  154.       Picture         =   "splash.frx":069A
  155.       Top             =   5040
  156.       Visible         =   0   'False
  157.       Width           =   480
  158.    End
  159.    Begin VB.Image Image3 
  160.       Height          =   480
  161.       Index           =   4
  162.       Left            =   2040
  163.       Picture         =   "splash.frx":07EC
  164.       Top             =   4440
  165.       Visible         =   0   'False
  166.       Width           =   480
  167.    End
  168.    Begin VB.Image Image3 
  169.       Appearance      =   0  'Flat
  170.       Height          =   480
  171.       Index           =   3
  172.       Left            =   1320
  173.       Picture         =   "splash.frx":093E
  174.       Top             =   4920
  175.       Visible         =   0   'False
  176.       Width           =   480
  177.    End
  178.    Begin VB.Image Image3 
  179.       Appearance      =   0  'Flat
  180.       Height          =   480
  181.       Index           =   2
  182.       Left            =   1200
  183.       Picture         =   "splash.frx":0A90
  184.       Top             =   4080
  185.       Visible         =   0   'False
  186.       Width           =   480
  187.    End
  188.    Begin VB.Image Image3 
  189.       Appearance      =   0  'Flat
  190.       Height          =   480
  191.       Index           =   1
  192.       Left            =   720
  193.       Picture         =   "splash.frx":0BE2
  194.       Top             =   4680
  195.       Visible         =   0   'False
  196.       Width           =   480
  197.    End
  198.    Begin VB.Image Image3 
  199.       Appearance      =   0  'Flat
  200.       Height          =   480
  201.       Index           =   0
  202.       Left            =   240
  203.       Picture         =   "splash.frx":0D34
  204.       Top             =   3960
  205.       Visible         =   0   'False
  206.       Width           =   480
  207.    End
  208.    Begin VB.Label Label2 
  209.       BackStyle       =   0  'Transparent
  210.       Caption         =   "Piano"
  211.       BeginProperty Font 
  212.          Name            =   "Lucida Calligraphy"
  213.          Size            =   48
  214.          Charset         =   0
  215.          Weight          =   700
  216.          Underline       =   0   'False
  217.          Italic          =   0   'False
  218.          Strikethrough   =   0   'False
  219.       EndProperty
  220.       Height          =   1215
  221.       Left            =   1560
  222.       TabIndex        =   2
  223.       Top             =   2760
  224.       Width           =   3735
  225.    End
  226.    Begin VB.Line Line4 
  227.       BorderWidth     =   3
  228.       X1              =   120
  229.       X2              =   120
  230.       Y1              =   6240
  231.       Y2              =   960
  232.    End
  233.    Begin VB.Line Line3 
  234.       BorderWidth     =   3
  235.       X1              =   5640
  236.       X2              =   120
  237.       Y1              =   6240
  238.       Y2              =   6240
  239.    End
  240.    Begin VB.Line Line2 
  241.       BorderWidth     =   3
  242.       X1              =   5640
  243.       X2              =   5640
  244.       Y1              =   120
  245.       Y2              =   6240
  246.    End
  247.    Begin VB.Line Line1 
  248.       BorderWidth     =   3
  249.       X1              =   2160
  250.       X2              =   5640
  251.       Y1              =   120
  252.       Y2              =   120
  253.    End
  254.    Begin VB.Image Image1 
  255.       Height          =   1935
  256.       Left            =   120
  257.       Picture         =   "splash.frx":0E86
  258.       Stretch         =   -1  'True
  259.       Top             =   120
  260.       Width           =   2745
  261.    End
  262.    Begin VB.Image Image2 
  263.       Height          =   2790
  264.       Left            =   2520
  265.       Picture         =   "splash.frx":1DF6
  266.       Top             =   120
  267.       Width           =   3315
  268.    End
  269.    Begin VB.Label Label1 
  270.       BackStyle       =   0  'Transparent
  271.       Caption         =   "Midi"
  272.       BeginProperty Font 
  273.          Name            =   "Lucida Calligraphy"
  274.          Size            =   36
  275.          Charset         =   0
  276.          Weight          =   700
  277.          Underline       =   0   'False
  278.          Italic          =   0   'False
  279.          Strikethrough   =   0   'False
  280.       EndProperty
  281.       Height          =   855
  282.       Left            =   480
  283.       TabIndex        =   1
  284.       Top             =   2280
  285.       Width           =   2175
  286.    End
  287. Attribute VB_Name = "Splash"
  288. Attribute VB_GlobalNameSpace = False
  289. Attribute VB_Creatable = False
  290. Attribute VB_PredeclaredId = True
  291. Attribute VB_Exposed = False
  292. Dim Index As Integer
  293. Dim curdr As String
  294. Private Sub Command1_Click()
  295.     MMControl1.Command = "stop"
  296.         MMControl1.Command = "close"
  297.             Timer2.Interval = 0
  298.         Timer1.Interval = 0
  299.     Unload Me
  300. End Sub
  301. Private Sub Form_Load()
  302.     curdr = CurDir
  303.     MMControl1.FileName = curdr & "\begin.wav"
  304.     'Set initial property values of the media device
  305.     MMControl1.Notify = True
  306.     MMControl1.Wait = True
  307.     MMControl1.Shareable = False
  308.     MMControl1.DeviceType = "Waveaudio"
  309.     'Open the media device
  310.     MMControl1.Command = "Open"
  311.     MMControl1.Command = "Play"
  312.     Image3(0).Visible = True
  313.         Timer1.Interval = 300
  314.     Timer2.Interval = 27000
  315. End Sub
  316. Private Sub Timer1_Timer()
  317.     Index = Index + 1
  318.     If Index < 11 Then
  319.         Image3(Index).Visible = True
  320.         Image3(Index - 1).Visible = False
  321.     Else
  322.         
  323.         Image3(Index - 1).Visible = False
  324.         Index = 0
  325.     End If
  326. End Sub
  327. Private Sub Timer2_Timer()
  328.     MMControl1.Command = "stop"
  329.         MMControl1.Command = "close"
  330.             Timer2.Interval = 0
  331.             Timer1.Interval = 0
  332.         Unload Me
  333.     Keyboard.Show
  334. End Sub
  335.